/*
  Copyright (C) 2011, Kyungjoo Kim
  
  This file is part of LINAL (LINear ALgebra)
  
  All rights reserved.

  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.
  
  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.
  
  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  Also add information on how to contact you by electronic and paper mail.
  
  
  Kyungjoo Kim
  iamkyungjoo@gmail.com
*/
#include "linal/common.hxx"
#include "linal/util.hxx"

#include "linal/format.hxx"

#include "linal/device/host/operation.hxx"


extern fla_apq2ut_t * fla_apq2ut_cntl_leaf;

namespace linal {
  namespace host {
    namespace internal {
      /*!
        Apply FLAME style pivot vector to rows : Left + No transpose
      */
      int apply_q_ut( int side, int trans, int direct, int storev,
                      FLA_Obj &A, FLA_Obj &T, FLA_Obj &W, FLA_Obj &B ) {
        FLA_Apply_Q_UT( side, trans, 
                        direct, storev,
                        A, T, W, B );
        return true;
      }
      
      int apply_q2_ut( int side, int trans, int direct, int storev,
                       FLA_Obj &D, FLA_Obj &T, FLA_Obj &W,  FLA_Obj &C, FLA_Obj &E ) {
        FLA_Apply_Q2_UT_internal( side, trans,
                                  direct, storev,
                                  D, T, W, C, E,
                                  fla_apq2ut_cntl_leaf );
        return true;
      }
    }
  }
}
